From 3547c8555626d3a74c9f2a81d7dd5c38ab7f3c63 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 6 Mar 1993 06:16:06 +0000 Subject: [PATCH] (momentary-string-display): Handle any event when flushing the display. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 49aa6f3a90c..27ddcf31095 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -348,7 +348,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." (setq insert-end (point))) (message (or message "Type %s to continue editing.") (single-key-description exit-char)) - (let ((char (read-char))) + (let ((char (read-event))) (or (eq char exit-char) (setq unread-command-events (list char))))) (if insert-end -- 2.30.2